home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G18F / G18_AYAS.Dxr / 00086.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  3.0 KB  |  163 lines
  1. global i, g_no, jumplistkey, jumplistkeyz
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   repeat with i = 11 to 19
  6.     set the cursor of sprite i to mycursor
  7.   end repeat
  8.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5"]
  9.   set jumplistkeyz to ["Z1", "Z2", "Z3", "Z4", "Z5"]
  10.   set volset to the soundLevel
  11.   if the soundEnabled = 0 then
  12.     set the soundEnabled to 1
  13.   end if
  14. end
  15.  
  16. on donext
  17.   if (g_no + 1) = 6 then
  18.     set g_no to 0
  19.   end if
  20.   go(getAt(jumplistkey, g_no + 1))
  21. end
  22.  
  23. on doback
  24.   if (g_no - 1) = 0 then
  25.     set g_no to 6
  26.   end if
  27.   go(getAt(jumplistkey, g_no - 1))
  28. end
  29.  
  30. on donextz
  31.   if (g_no + 1) = 6 then
  32.     set g_no to 0
  33.   end if
  34.   go(getAt(jumplistkeyz, g_no + 1))
  35. end
  36.  
  37. on dobackz
  38.   if (g_no - 1) = 0 then
  39.     set g_no to 6
  40.   end if
  41.   go(getAt(jumplistkeyz, g_no - 1))
  42. end
  43.  
  44. on doexit
  45.   sound stop 1
  46.   go("M1", "@::JMACMENU")
  47. end
  48.  
  49. on crtopen
  50.   puppetSprite(7, 1)
  51.   repeat while the stillDown
  52.     set the memberNum of sprite 7 to 16
  53.     updateStage()
  54.   end repeat
  55.   set the memberNum of sprite 7 to 14
  56.   updateStage()
  57.   puppetSprite(7, 0)
  58. end
  59.  
  60. on crtclose
  61.   puppetSprite(8, 1)
  62.   repeat while the stillDown
  63.     set the memberNum of sprite 8 to 17
  64.     updateStage()
  65.   end repeat
  66.   set the memberNum of sprite 8 to 15
  67.   updateStage()
  68.   puppetSprite(8, 0)
  69. end
  70.  
  71. on crtback
  72.   puppetSprite(21, 1)
  73.   repeat while the stillDown
  74.     set the memberNum of sprite 21 to 22
  75.     updateStage()
  76.   end repeat
  77.   set the memberNum of sprite 21 to 21
  78.   updateStage()
  79.   puppetSprite(21, 0)
  80. end
  81.  
  82. on crtnext
  83.   puppetSprite(20, 1)
  84.   repeat while the stillDown
  85.     set the memberNum of sprite 20 to 20
  86.     updateStage()
  87.   end repeat
  88.   set the memberNum of sprite 20 to 19
  89.   updateStage()
  90.   puppetSprite(20, 0)
  91. end
  92.  
  93. on crtbackz
  94.   puppetSprite(21, 1)
  95.   repeat while the stillDown
  96.     set the memberNum of sprite 21 to 48
  97.     updateStage()
  98.   end repeat
  99.   set the memberNum of sprite 21 to 47
  100.   updateStage()
  101.   puppetSprite(21, 0)
  102.   puppetSprite(1, 0)
  103. end
  104.  
  105. on crtnextz
  106.   puppetSprite(20, 1)
  107.   repeat while the stillDown
  108.     set the memberNum of sprite 20 to 46
  109.     updateStage()
  110.   end repeat
  111.   set the memberNum of sprite 20 to 45
  112.   updateStage()
  113.   puppetSprite(20, 0)
  114.   puppetSprite(1, 0)
  115. end
  116.  
  117. on crtclose2
  118.   puppetSprite(22, 1)
  119.   repeat while the stillDown
  120.     set the memberNum of sprite 22 to 24
  121.     updateStage()
  122.   end repeat
  123.   set the memberNum of sprite 22 to 23
  124.   updateStage()
  125.   puppetSprite(22, 0)
  126.   puppetSprite(1, 0)
  127. end
  128.  
  129. on crtzexit
  130.   puppetSprite(22, 1)
  131.   repeat while the stillDown
  132.     set the memberNum of sprite 22 to 50
  133.     updateStage()
  134.   end repeat
  135.   set the memberNum of sprite 22 to 49
  136.   updateStage()
  137.   puppetSprite(22, 0)
  138.   puppetSprite(1, 0)
  139. end
  140.  
  141. on crtzoomin
  142.   puppetSprite(23, 1)
  143.   repeat while the stillDown
  144.     set the memberNum of sprite 23 to 26
  145.     updateStage()
  146.   end repeat
  147.   set the memberNum of sprite 23 to 25
  148.   updateStage()
  149.   puppetSprite(23, 0)
  150. end
  151.  
  152. on crtzoomout
  153.   puppetSprite(23, 1)
  154.   repeat while the stillDown
  155.     set the memberNum of sprite 23 to 52
  156.     updateStage()
  157.   end repeat
  158.   set the memberNum of sprite 23 to 51
  159.   updateStage()
  160.   puppetSprite(23, 0)
  161.   puppetSprite(1, 0)
  162. end
  163.